home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / riruf1 / rufini.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-06  |  1.0 KB  |  29 lines
  1. Option Explicit
  2. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  3. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  4. Dim sIniAppName$
  5. Dim sIniFile$
  6.  
  7. Function GetFromIni (ByVal sKey As String, nSize As Integer) As String
  8.     Dim x%
  9.     Dim sRetStr$
  10.     sRetStr = Space(nSize)
  11.  
  12.     x = GetPrivateProfileString(sIniAppName, sKey, "", sRetStr, nSize, sIniFile)
  13.     GetFromIni = sRetStr
  14.  
  15. End Function
  16.  
  17. Sub InitIni (ByVal sAppName As String, ByVal sFile As String)
  18.     sIniAppName = sAppName
  19.     sIniFile = sFile
  20. End Sub
  21.  
  22. Sub WriteToIni (ByVal sKey As String, ByVal sValue As String)
  23.     Dim x%
  24.  
  25.     x = WritePrivateProfileString(sIniAppName, sKey, sValue, sIniFile)
  26.  
  27. End Sub
  28.  
  29.